home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aab.d64 / proc.fix'modem < prev    next >
Text File  |  2007-02-28  |  331b  |  15 lines
  1. 0010 //
  2. 0020 ╨╥╧├ FIX'MODEM ├╠╧╙┼─
  3. 0030   ╥┼╙╘╧╥┼ MODEM'CODE
  4. 0040   ╞╧╥ ADDRESS:=$C86A ╘╧ $C875 ─╧
  5. 0050     ╥┼┴─ NUM
  6. 0060     ╨╧╦┼ ADDRESS,NUM
  7. 0070   ┼╬─╞╧╥ ADDRESS
  8. 0080   ╨╧╦┼ $0324,$6A
  9. 0090   ╨╧╦┼ $0325,$C8
  10. 0100   //
  11. 0110 MODEM'CODE:
  12. 0120   ─┴╘┴ $A5,$99,$C9,$02,$F0,$03
  13. 0130   ─┴╘┴ $4C,$57,$F1,$4C,$3E,$F1
  14. 0140 ┼╬─╨╥╧├ FIX'MODEM
  15.